home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / S-Sh / SCB 4.0.cpt / Script Cat Burglar 4.0 / card_10528.txt < prev    next >
Text File  |  1988-03-21  |  6KB  |  246 lines
  1. -- card: 10528 from stack: in.0
  2. -- bmap block id: 5500
  3. -- flags: 4000
  4. -- background id: 10219
  5. -- name: Index 1
  6. ----- HyperTalk script -----
  7. On closeCard
  8.   hide Background field "Move Advisor"
  9. end closeCard
  10.  
  11. On mouseDown
  12.   global ScriptName
  13.   if the tool is "Browse Tool" then
  14.     Hide Background field "Move Advisor"
  15.   end if
  16. End mouseDown
  17.  
  18.  
  19.  
  20. -- part 101 (button)
  21. -- low flags: 00
  22. -- high flags: A006
  23. -- rect: left=4 top=62 right=82 bottom=172
  24. -- title width / last selected line: 0
  25. -- icon id / first selected line: 0 / 0
  26. -- text alignment: 1
  27. -- font id: 0
  28. -- text size: 12
  29. -- style flags: 0
  30. -- line height: 16
  31. -- part name: Hide/Show Fields
  32. ----- HyperTalk script -----
  33. on mouseUp
  34.   get short name of the target
  35.   go to card it
  36.   set hilite of card button it of card "Index 1" to false
  37. end mouseUp
  38.  
  39.  
  40. -- part 104 (button)
  41. -- low flags: 00
  42. -- high flags: A006
  43. -- rect: left=340 top=62 right=82 bottom=508
  44. -- title width / last selected line: 0
  45. -- icon id / first selected line: 0 / 0
  46. -- text alignment: 1
  47. -- font id: 0
  48. -- text size: 12
  49. -- style flags: 0
  50. -- line height: 16
  51. -- part name: Feed Cat
  52. ----- HyperTalk script -----
  53. on mouseUp
  54.   get short name of the target
  55.   go to card it
  56.   set hilite of card button it of card "Index 1" to false
  57. end mouseUp
  58.  
  59.  
  60. -- part 105 (button)
  61. -- low flags: 00
  62. -- high flags: A006
  63. -- rect: left=340 top=81 right=101 bottom=508
  64. -- title width / last selected line: 0
  65. -- icon id / first selected line: 0 / 0
  66. -- text alignment: 1
  67. -- font id: 0
  68. -- text size: 12
  69. -- style flags: 0
  70. -- line height: 16
  71. -- part name: Cat's Meow
  72. ----- HyperTalk script -----
  73. on mouseUp
  74.   get short name of the target
  75.   go to card it
  76.   set hilite of card button it of card "Index 1" to false
  77. end mouseUp
  78.  
  79.  
  80. -- part 106 (button)
  81. -- low flags: 00
  82. -- high flags: A006
  83. -- rect: left=4 top=157 right=177 bottom=172
  84. -- title width / last selected line: 0
  85. -- icon id / first selected line: 0 / 0
  86. -- text alignment: 1
  87. -- font id: 0
  88. -- text size: 12
  89. -- style flags: 0
  90. -- line height: 16
  91. -- part name: Lock/Unlock Fields
  92. ----- HyperTalk script -----
  93. on mouseUp
  94.   get short name of the target
  95.   go to card it
  96.   set hilite of card button it of card "Index 1" to false
  97. end mouseUp
  98.  
  99.  
  100. -- part 107 (button)
  101. -- low flags: 00
  102. -- high flags: A006
  103. -- rect: left=4 top=176 right=196 bottom=172
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 0
  108. -- text size: 12
  109. -- style flags: 0
  110. -- line height: 16
  111. -- part name: Change Tools
  112. ----- HyperTalk script -----
  113. on mouseUp
  114.   get short name of the target
  115.   go to card it
  116.   set hilite of card button it of card "Index 1" to false
  117. end mouseUp
  118.  
  119.  
  120. -- part 108 (button)
  121. -- low flags: 00
  122. -- high flags: A006
  123. -- rect: left=4 top=214 right=234 bottom=172
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 1
  127. -- font id: 0
  128. -- text size: 12
  129. -- style flags: 0
  130. -- line height: 16
  131. -- part name: Rubbing the Button
  132. ----- HyperTalk script -----
  133. on mouseUp
  134.   get short name of the target
  135.   go to card it
  136.   set hilite of card button it of card "Index 1" to false
  137. end mouseUp
  138.  
  139.  
  140. -- part 110 (button)
  141. -- low flags: 00
  142. -- high flags: A006
  143. -- rect: left=4 top=233 right=253 bottom=172
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 0
  148. -- text size: 12
  149. -- style flags: 0
  150. -- line height: 16
  151. -- part name: MakeButton - Goodman
  152. ----- HyperTalk script -----
  153. on mouseUp
  154.   get short name of the target
  155.   go to card it
  156.   set hilite of card button it of card "Index 1" to false
  157. end mouseUp
  158.  
  159.  
  160. -- part 164 (button)
  161. -- low flags: 00
  162. -- high flags: A006
  163. -- rect: left=340 top=157 right=177 bottom=508
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: Add to Index
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   get short name of the target
  175.   go to card it
  176.   set hilite of card button it of card "Index 1" to false
  177. end mouseUp
  178.  
  179.  
  180. -- part 174 (button)
  181. -- low flags: 00
  182. -- high flags: A006
  183. -- rect: left=340 top=176 right=196 bottom=508
  184. -- title width / last selected line: 0
  185. -- icon id / first selected line: 0 / 0
  186. -- text alignment: 1
  187. -- font id: 0
  188. -- text size: 12
  189. -- style flags: 0
  190. -- line height: 16
  191. -- part name: on IndexButton
  192. ----- HyperTalk script -----
  193. on mouseUp
  194.   get short name of the target
  195.   go to card it
  196.   set hilite of card button it of card "Index 1" to false
  197. end mouseUp
  198.  
  199.  
  200. -- part 195 (button)
  201. -- low flags: 00
  202. -- high flags: A006
  203. -- rect: left=340 top=138 right=158 bottom=508
  204. -- title width / last selected line: 0
  205. -- icon id / first selected line: 0 / 0
  206. -- text alignment: 1
  207. -- font id: 0
  208. -- text size: 12
  209. -- style flags: 0
  210. -- line height: 16
  211. -- part name: Lining up buttons
  212. ----- HyperTalk script -----
  213. on mouseUp
  214.   get short name of the target
  215.   go to card it
  216.   set hilite of card button it of card "Index 1" to false
  217. end mouseUp
  218.  
  219.  
  220. -- part 206 (button)
  221. -- low flags: 00
  222. -- high flags: A006
  223. -- rect: left=340 top=119 right=139 bottom=508
  224. -- title width / last selected line: 0
  225. -- icon id / first selected line: 0 / 0
  226. -- text alignment: 1
  227. -- font id: 0
  228. -- text size: 12
  229. -- style flags: 0
  230. -- line height: 16
  231. -- part name: ShowAll
  232. ----- HyperTalk script -----
  233. on mouseUp
  234.   get short name of the target
  235.   go to card it
  236.   set hilite of card button it of card "Index 1" to false
  237. end mouseUp
  238.  
  239.  
  240. -- part contents for background part 10
  241. ----- text -----
  242. Move the new button to an empty pigeonhole, then select the browse tool.
  243.  
  244. -- part contents for background part 8
  245. ----- text -----
  246. 1